home *** CD-ROM | disk | FTP | other *** search
/ PC Answers 1995 May / PC Answers CD-ROM 7 (Future Publishing) (May 1995).iso / vbits / code / cert / trk3_eg / fmdrgdrp / opt2 / invent.exe / NEWFORM.FRM (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1993-08-20  |  2.9 KB  |  103 lines
  1. VERSION 2.00
  2. Begin Form NewForm 
  3.    BackColor       =   &H00C0C0C0&
  4.    BorderStyle     =   1  'Fixed Single
  5.    Caption         =   "New..."
  6.    ClientHeight    =   1725
  7.    ClientLeft      =   2730
  8.    ClientTop       =   1785
  9.    ClientWidth     =   3240
  10.    Height          =   2130
  11.    Left            =   2670
  12.    LinkTopic       =   "Form3"
  13.    MaxButton       =   0   'False
  14.    MinButton       =   0   'False
  15.    ScaleHeight     =   1725
  16.    ScaleWidth      =   3240
  17.    Top             =   1440
  18.    Width           =   3360
  19.    Begin TextBox TableName 
  20.       Height          =   285
  21.       Left            =   240
  22.       TabIndex        =   5
  23.       Top             =   1320
  24.       Width           =   2775
  25.    End
  26.    Begin SSOption NewType 
  27.       Caption         =   "Order List"
  28.       Font3D          =   0  'None
  29.       Height          =   255
  30.       Index           =   2
  31.       Left            =   180
  32.       TabIndex        =   4
  33.       Top             =   780
  34.       Width           =   1515
  35.    End
  36.    Begin SSOption NewType 
  37.       Caption         =   "Customer List"
  38.       Font3D          =   0  'None
  39.       Height          =   255
  40.       Index           =   1
  41.       Left            =   180
  42.       TabIndex        =   3
  43.       Top             =   480
  44.       Width           =   1515
  45.    End
  46.    Begin CommandButton CancelButton 
  47.       Caption         =   "Cancel"
  48.       Height          =   375
  49.       Left            =   2100
  50.       TabIndex        =   2
  51.       Top             =   600
  52.       Width           =   975
  53.    End
  54.    Begin CommandButton OkButton 
  55.       Caption         =   "OK"
  56.       Default         =   -1  'True
  57.       Height          =   375
  58.       Left            =   2100
  59.       TabIndex        =   1
  60.       Top             =   180
  61.       Width           =   975
  62.    End
  63.    Begin SSOption NewType 
  64.       Caption         =   "Parts List"
  65.       Font3D          =   0  'None
  66.       Height          =   255
  67.       Index           =   0
  68.       Left            =   180
  69.       TabIndex        =   0
  70.       Top             =   180
  71.       Width           =   1515
  72.    End
  73.    Begin Label Label1 
  74.       BackColor       =   &H00C0C0C0&
  75.       Caption         =   "Name of new table:"
  76.       Height          =   255
  77.       Left            =   240
  78.       TabIndex        =   6
  79.       Top             =   1080
  80.       Width           =   1815
  81.    End
  82. Sub CancelButton_Click ()
  83.     Unload NewForm
  84.     DialogCancel = True
  85. End Sub
  86. Sub Form_Load ()
  87.     CenterForm NewForm
  88.     SetStatus "Choose type and name for new table in " & DialogParm
  89. End Sub
  90. Sub OkButton_Click ()
  91.     ' Set DialogParm to the proper value for return
  92.     DialogCancel = False
  93.     If NewType(0).Value Then
  94.         DialogParm = ID_NEW_PARTS
  95.     ElseIf NewType(1).Value Then
  96.         DialogParm = ID_NEW_CUST
  97.     ElseIf NewType(2).Value Then
  98.         DialogParm = ID_NEW_OBROWSE
  99.     End If
  100.     DialogParm2 = TableName.Text
  101.     Unload NewForm
  102. End Sub
  103.